home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed22.d64 / laser addition (.txt) next >
Commodore BASIC  |  2007-02-04  |  7KB  |  231 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
  31. 405 PRINT"            [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  32. 410 [153]"  (null)OU WILL BE GIVEN A SUM TO ANSWER."
  33. 415 [153]"  ATN LASER BEAM WILL BEGIN SLASHING
  34. 420 PRINT"  SEGMENTS OF YOUR BLOCK."
  35. 425 PRINT"  [211]O ANSWER THE SUM AS FAST AS YOUR
  36. 430 [153]"  FINGERS AND MIND WILL ALLOW!"
  37. 435 [153]"  STR$ON'T PRESS RETURN AFTER TYPING YOUR    ANSWER
  38. 440 PRINT"  [206]OTE: [212]O DELETE A WRONG ANSWER,"
  39. 445 PRINT"        PRESS THE [211][208][193][195][197][160][194][193][210]."
  40. 450 PRINT"  [215]ARNING: [212]HERE IS A SLIGHT DELAY
  41. 455 [153]"  AFTER YOU TYPE IN YOUR ANSWER WHILE
  42. 460 PRINT"  THE COMPUTER CHECKS YOURANSWER.
  43. 495 [141]820:[142]
  44. 700 [143] <YES>
  45. 705 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  46. 710 [151]54296,15:[151]54277,42:[151]54278,250
  47. 715 [151]54276,23:[151]54273,23:[151]54271,191
  48. 720 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  49. 725 [151]54296,0:[142]
  50. 730 [143] <YES>
  51. 735 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  52. 740 [151]54296,15:[151]54277,18:[151]54278,242
  53. 745 [151]54276,33:[151]54273,23:[151]54271,48
  54. 750 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  55. 755 [151]54296,0:[142]
  56. 760 [143] <BLIP>
  57. 765 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  58. 770 [151]54296,7:[151]54277,42:[151]54278,250
  59. 775 [151]54276,23:[151]54273,23:[151]54271,191
  60. 780 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  61. 785 [151]54296,0:[142]
  62. 790 [129]T[178]1[164]500:[130]:[142]
  63. 791 [129]T[178]1[164]1000:[130]:[142]
  64. 792 [129]T[178]1[164]2000:[130]:[142]
  65. 793 [129]T[178]1[164]3000:[130]:[142]
  66. 795 [129]T[178]1[164]5000:[130]:[142]
  67. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,5
  68. 801 [153]"     A TPUG EDUCATIONAL PROGRAM
  69. 802 PRINT"          FOR C64 COMPUTERS
  70. 803 [153]"             GRADES 2-5
  71. 804 GOSUB791
  72. 805 PRINT"                                        [146]";
  73. 806 PRINT"                                        [146]";
  74. 807 PRINT"           LASER ADDITION               [146]";
  75. 808 PRINT"                                        [146]";
  76. 809 PRINT"                                        [146]"
  77. 810 GOSUB792:GOSUB760
  78. 811 PRINT"         INSTRUCTIONS?  Y/N
  79. 812 [161]UI$:[139]UI$[179][177]"Y"[175]UI$[179][177]"N"[167]812
  80. 813 [139]UI$[178]"Y"[167] [141] 400
  81. 814 [137]1000
  82. 820 [141]791:[141]760
  83. 822 [151]UN,0:[153][200](UD$,24);"(null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUEWAIT"
  84. 824 [161]UI$:[139]UI$[179][177]" "[167]824
  85. 826 [142]
  86. 835 [141]791:[141]760
  87. 837 [151]UN,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
  88. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  89. 845 [142]
  90. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  91. 855 [153]" --------------------------------------"
  92. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ANSWER, THEN PRESS RETURN
  93. 865 UH=0:PRINT"":RETURN
  94. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  95. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  96. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  97. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  98. 905 UD$="":UP$="                                      "
  99. 906 DIMGG(20):RETURN
  100. 909 RETURN
  101. 910 GOSUB900:PRINT"[147] "
  102. 920 GOTO800
  103. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0:POKEUT,UU%
  104. 1100 REM
  105. 1110 GOTO1350
  106. 1120 REM.............................
  107. 1130 REM......GETS ANSWER............
  108. 1140 GETRR$
  109. 1146 IFRR$=CHR$(13)GOTO1190
  110. 1150 SS$=SS$+RR$
  111. 1160 IFRR$=" "THENPRINTWW$"       ":SS$=""
  112. 1170 PRINTWW$;SS$
  113. 1190 RETURN
  114. 1200 REM.............................
  115. 1210 REM.....WRITES EQUATION.........
  116. 1220 A=INT(RND(TI)*9^QQ+1)
  117. 1225 B=INT(RND(TI)*9^QQ+1)
  118. 1235 IF B<ATHEN1240
  119. 1237 E=A:A=B:B=E
  120. 1240 Z$=STR$(A):B$=STR$(B)
  121. 1245 C=A+B:C$=STR$(C):D=LEN(Z$)-LEN(B$)
  122. 1250 PRINT" "A
  123. 1251 IF D=0THEN1253
  124. 1252 FORL=1TOD:PRINT" ";:NEXTL
  125. 1253 PRINT""B
  126. 1254 PRINT"";:FORL=1TOLEN(C$):PRINT"[195]";:NEXTL:PRINT" ="
  127. 1260 RETURN
  128. 1270 :
  129. 1280 REM..IF PLAYER WINS
  130. 1290 PRINT"[147][153] YOU BEAT THE LASER!!!"
  131. 1291 W=W+1:IF W=10 THEN 2000
  132. 1292 PRINT"[159] GET READY FOR ATTACK NUMBER"W"."
  133. 1293 GOSUB 791
  134. 1300 PRINT" [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  135. 1310 PRINT"[158] HERE WE GO![155]"
  136. 1320 GOSUB792:GOSUB760
  137. 1325 GOTO 1660
  138. 1340 GOTO1320
  139. 1350 REM...............................
  140. 1360 REM....GAME HEADING ETC...........
  141. 1370 REM
  142. 1380 REM
  143. 1390 REM
  144. 1430 REM.............................
  145. 1440 REM.......# OF DIGITS...........
  146. 1442 UT$=" LAZER MATH"
  147. 1445 GOSUB 850:GOSUB791
  148. 1450 PRINT" HOW MANY DIGITS DO YOU WISH":GOSUB760
  149. 1460 PRINT" IN YOUR NUMBERS? (1-8) ";
  150. 1470 US$="12345678":UL=1:GOSUB35:QQ=VAL(UR$)
  151. 1475 PRINT"HOW GOOD ARE YOU AT ADDITION?":GOSUB760
  152. 1478 PRINT"1)SLOW"
  153. 1479 PRINT"2)AVERAGE"
  154. 1480 PRINT"3)FAST"
  155. 1482 PRINT"(1,2,OR 3) ";
  156. 1485 US$="123":UL=1:GOSUB35:SP=VAL(UR$)
  157. 1486 IF SP=1THENDE=50:GOTO1670
  158. 1487 IF SP=2THENDE=25:GOTO1670
  159. 1488 DE=1
  160. 1490 GOTO1670
  161. 1660 REM..............................
  162. 1670 REM....INITIALIZES & DEFINES.....
  163. 1680 SS$="":FORYY=1TO20:GG(YY)=0:NEXTYY
  164. 1690 A$=""
  165. 1700 WW$=""
  166. 1710 REM..............................
  167. 1720 REM.....MAIN PROGRAM.............
  168. 1730 REM..............................
  169. 1740 REM..............................
  170. 1750 REM..............................
  171. 1760 PRINT"[147]"
  172. 1770 FORAA=1TO20
  173. 1780 PRINT"                                  "
  174. 1790 NEXTAA
  175. 1800 GOSUB1200
  176. 1810 REM...........................
  177. 1820 REM......LAZER LOOP...........
  178. 1830 FORDD=1TO20
  179. 1840 GOSUB1120:IFVAL(SS$)=C THEN GOSUB700:GOTO1270
  180. 1845 GOSUB730
  181. 1850 BB=INT(RND(TI)*20+1):IFGG(BB)<>0THENGOTO1850
  182. 1860 GG(BB)=1
  183. 1870 CC=BB*40+US
  184. 1875 FORI=1TODE:NEXTI
  185. 1880 FORFF=0TO38
  186. 1890 POKECC+FF,67
  187. 1900 NEXTFF
  188. 1910 PRINTLEFT$(A$,BB+1);"                                       "
  189. 1920 NEXTDD
  190. 1930 REM..........................
  191. 1940 REM.......IF PLAYER LOST.....
  192. 1950 PRINT"[147][150] THE LAZER HAS DESTROYED THE BLOCK!!!":GOSUB730
  193. 1960 PRINT" [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][155]"
  194. 1970 PRINT""A
  195. 1971 IF D=0THEN1973
  196. 1972 FORL=1TOD:PRINT" ";:NEXTL
  197. 1973 PRINT""B
  198. 1974 PRINT"";:FORL=1TOLEN(C$):PRINT"[195]";:NEXTL:PRINT
  199. 1975 IFLEN(C$)>LEN(Z$)THENPRINT"[157]";
  200. 1976 PRINT"";C
  201. 1980 PRINT" YOUR ANSWER:  "SS$""
  202. 1990 GOTO1310
  203. 2000 PRINT"[147]  GREAT STUFF!
  204. 2010 [153]"  YOU HAVE SURVIVED 10 LASER              ATTACKS.":[141]792
  205. 2020 [153]"  CHOICE:":[141]760
  206. 2025 [153]"  PRESS  P WAIT TO PLAY AGAIN.
  207. 2030 PRINT"  PRESS  S [146] TO STOP
  208. 2035 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"S"[167]2035
  209. 2040 [139]R$[178]"P"[167] 2065
  210. 2045 [151]631,13:[151]198,2
  211. 2050 [153]"LOAD  RETURNING TO THERE MAIN MENU
  212. 2055 LOAD"MENU",8                       2057 RUN
  213. 2060 END
  214. 2065 PRINT"[147]  WHY NOT MAKE THE GAME A BIT             MORE DIFFICULT?
  215. 2070 [141]795:[140]:[137]1000
  216. 2075 [143]..B  -RND. # TO ADD
  217. 2080 [143]..UU$-ANSWER TO "ANOTHER GAME?"
  218. 2090 [143]..KK$-ANSWER TO "INSTRUCTIONS?"
  219. 2100 [143]..QQ -ANSWER TO "# OF DIGITS?"
  220. 2110 [143]..OO$-CONTINUE AFTER INSTRUCTIONS
  221. 2120 [143]..A$ -HOME AND DOWN
  222. 2130 [143]..BB -RND. INT. 1 TO 20
  223. 2140 [143]..CC -SCREEN LOCATION OF 1'ST 21 PLACES (NOT INCLUDING HOME)
  224. 2150 [143]..DD,FF,AA,YY,JJ - DO LOOP PARAMETERS.
  225. 3000 [143] DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  226. 3010 [143] PROJECT DIRECTOR: FRANK WINTER
  227. 3020 [143] PROGRAM NAME: LAZER MATH
  228. 3030 [143] WRITTEN BY JOHN CHELLEW
  229. 3040 [143] REVISED BY DOUG TURNER
  230. 3050 UPDATED BY BILL CUMBERL[175] 90
  231.